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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


he 
® 
x 
t 
OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOANY = 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. : 
ww 

® 
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« 

® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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RMS. SRCJRMSOPARSE .MAR; 1 | 

§ i++ 
: Facility: rms32 
Abstract: | 
This is the highest level routine to perform the Sparse function 

| 

| 


Environment: 
VAX/VMS 


Author: 


NWA AIAIANNAIWIOnr 


OODWNAUE WIN 0 ODNAUE WN OOO NAUE WN" OOONAOUE WN Oo 


Tim Halvorsen AUG-1979 
Modified By: 


v03-019 RASO287 Ron Schaefer 3-Apr-1984 
Minor a to searchlist and wildcard processing: 
1. Prevent searchlist continuation if the error | 
is not a continuable one; 
2. Don't force context to be saved for ANY wildcard, 
only for searchlists, network or wildcard directories. | 
| 
| 


v03-018 RASO251 Ron Schaefer 99-Feb-1984 
Add support for special parsing thee NAMSV_SLPARSE 
for BACKUP. This ag causes multiple $PARSEs of. 
a searchlist filespec to return successive searchlist 
elements. Reorganize the cleanup of old saved context. 


V03-017 RASO241,RAS0242 Ron Schaefer 23-Jan-1984 
Fix bugcheck in saved-context searches caused by 
a ~~ null eeresoery 
u 


spec. 
Fix checks caused Task of a fwa (valid R10) 
on calls to RMSPARSE FILE. 


Return DNF error if no directory is found by RMSNEXTDIR. 


Support NAM$V_SYNCHK by not doing the SASSIGN nor 


Se eat eal Oat eal Onl oat eal onl ool eal eal eal eal eal wales eal eal eal eal oP oP oP oP oe? oe or a a? ae 


Clean-up returned device characteristics by calling 
a central routine RMSRET_DEV_CHAR. 


v03-012 RASO201 Ron Schaefer 17-0c t-1983 
Correct calls to RMSPARSE_FILE to account for the fact 
that it does NOT necessarily preserve R7. 


v03-011 KBT0565 _. Keith B. Thompson 26-Jul-1983 
Save context if any wild field present 


v03-016 RASO231 Ron Schaefer 9-Jan-1984 

0 the directory lookup. Use FWASV_SYNTAX_CHK flag. 

0 Dor’t save context in this case either so subsequent 

; SSEARCHS will not work. 

0 v03-015 RASO219 Ron Schaefer 88-Dec-1983 

S Process errors from RMSINIT_SwWB. | 

0 71 v03-014 RASO218 Rom Schaefer ; 5-Dec-1983 

3 Make node names work as search List elements. 

0 vO3-013 RASO209 Ron Schaefer 4-Nov~1983 | 
| 
| 
| 
| 
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000 5; v03-010 KBT0530 Keith B. Thompson 31-May-1983 | 
8 § ; Add search List support 
$50 2; v03-009 KBT0519 Keith B. Thompson 23-May-1983 | 
Boo 89 : RMSXPFN moved so — ref to JSB 

9000 : V03-008 LJA0062 Anders 23-F eb-1983 
44 : Move RMSWRITE vi to TeADWANS TR MAR which is where it belongs. 
0000 : v03-007 KBT0430 Keith 8. Thompson 3=Dec-1982 
44 ; Change the way the device name is returned by write_dvi | 
itd : V03-006 KBT0427 Keith B. Thompson 2-Dec-1982 
44 ; Fix rm$write_dvi to use new type of name in shrfilbuf | 
0000 : V03-005 KBTU40S Keith B. Thompson 30-Nov-1982 
444 : Change fwaSt_shrfildev to fwaS$t_shrfilbuf 
0000 : V03-004 RASO103 Ron Schaefer 19-Nov-1982 | 

0000 : Correct saving of the caller's access mode so that 
0000 ; exits via RMSEX_NOSTR have the caller's mode in R7. | 
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1 

1 
0000 1 
0000 1 v03-003 DMwW4003 DMWal 2- oo 
0000 1 Added code so that RMSFABCHK was not called twic 
464 it was called once directly and a second time iy RMSF SETI 
0000 = v03-002 kBT0188 Keith B. Thompson 23- or» -1982 
iti : Reorganize psects and rename entry point to single ‘$' 
0000. =«1 v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
0000 1 Added $PSLDEF. 
0000 : 
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F 
ate Wildcard Sequence -SEP-19 RMS ..SRCIJRMSOPARSE .MAR; 1 
-SBTTL RMSSPARSE, Initiate Wildcard Sequence 


el 


PARSE 
RMSSPARSE 


This routine initiates wildcarding within rms. 

it allocates swb and fwa buffers to handle context 
while traversing the directory tree. They remain 
allocated until the wildcard sequence is terminated 
via either another parse or nmf error condition. 


inputs: 

file spec from fab 
outputs: 

r0 = status 


expanded name ee set ‘ , 
did set in nam block if non-wild directory 


Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Se Ge Se Ge 


COOCOCOOCOCOOCOOCOOOOOOOOOOOOOCOoOOoO UN, 


SENTRY RMSSPARSE 


~~ QDOOOWWOOOOO0O0O0 OOOO OO 00009 09 09 00 09 09 09 00 08 SIN SI SSIES NS NS NS NAA AAA AAAOOIIUTIUIMN 
DOD NAUE WR SO OD NAUE WIN $$ 9 OD NAME WN SO ODA EWN 0 ODNOAUE WW -OOONOU AO 


0000 STSTPT PARSE 
0006 
0006 ; ; ; 
0006 ; If another wildcard sequence was in progress using this 
0006 : ifab, then cleanup the previous one. 
0006 «18y 
FFF7" 30 0006 BSBW RMSF ABCHK ; check fab validity returns only if ok 
0009 3; 11 = impure area 
0009 : 78 = fab address 
0009 : r? = caller's access mode 
52 12 0009 BNEQ 10$ : error if IFI non-zero 
57 DD 0008 PUSHL R7 ; save caller's mode 
57 28 AB 00 00D MOVL FABSL_NAM(R8) ,R7 3; get nam address. 
FFEC’ 30 0011 BSBW RMSCHRNAM 3; check nam validity 
56 57 DO 0014 MOVL R7,R6 : copy NAM block address 
57 8E— 00 0017 MOVL (SP)+,R7 ; restore caller's mode 
5850 €9 O01 BLBC ~—_- RO, 408 > branch if invalid (no error) 
59 30 A6 DO 001D MOVL NAMSL_WCC(R6) RO ; get ifi of previous ifab 
52 13 0091 BEQL 40$ :; branch if none 
32 A6 «=6B3 «O00 : BITwW NAMSL_WCC+2(R6) ,- ; check that there are no spurious 
3FFE 8F 0026 #°C<<RAMSM_SVCTX!- ; bits set im NAMSL_WCC other than 
0029 NAMS$M_SRCHNMF ! = ; the save context Bit, the IFI bit, 
0029 NAM$M_IF 1>a-16> ; or the search NMF bit 
3A 6 12~=CO0 : BNEQ : if so, error in wec param 
4659 10 €5 3 ? BBCC #NAMSV_IFI,R9,40$ ; branch if not ‘search’ ifi 
50 06 00 O5F MOVL #IMPS$L_IFABTBL/4,RO ; ifab table longword offset 
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v04-000 RMSSPARSE, nis ate Wildcard Sequence ett 95:58:18 CAMS SRCIRMS PARSE .MAR; 1 . 
FFCB" 29 1g BSBW RMSGTIADR ; get ifab address 
3 1 1 BEQL ; branch if illegal ifi 
3A 69 1 i 3 BBC #IFBSV_SEARCH,(R9),40$ ; branch if not ours 
038 16 ; 
8 ; i ; See if the user wants to go on to the next searchlist element. 
038 219° 
02 a8 30 Ab 8 0 0 MOVW NAMSL_WCC(R6) ,FABSW_IFI(R8); set FAB as busy 
FFBD* 004 1 BSBW RMSF L ; set up remaining state 
SA 38 AD 09 004 ; MOVL FBSL_FQA_PTR(R9),.R10 ; get fwa ptr 
46 | Bee BEQL 0$ ; Start anew if none 
>. 87 49 6 BBC #NAMSV_SLPARSE,- ; see if special parse request 
1F 08 A6 0048 5 NAMSB_ROP(R6) , 30S ; Start anew if not 
Baek § RMSERR NMF 3; assume at end of List 
44 6A 38 €1 005 BBC #FWASV_SLPRESENT, (R10) ,EXIT ; no more files if not a List 
0057 8 SSB #FWASV_SL_PASS, (R10) 3 Going searchlist processing 
1D 3611+ «0058 9 BRB 50$ ; and do it 
005D 0 
005D a) 3 
005D $38 3 error returns 
0050 «233 ; 
0050 34 
005D 35 108: RMSERR IFI ; invalid ifi (must be zero) 
FFOB® 31 9k $$ BRW RMSEX_NOSTR ; exit without ifab 
0065 238 20$: RMSERR WCC 3 error in wec value 
FF93" 31 OO06A 239 BRW RMSEX_NOSTR 3; exit without ifab 
006D 40 
0060 41 ; 
006D tg ; Cleaning up the previous context (IFAB, FWA, etc...) save the current 
006D 45 ; Note that during the cleanup, stalling may take place. 
006D 244 ; 
006D 245 
DD 006D 246 30S: PUSHL AP ; save ap over cleanup call 
FFBE’ 30 OO6F 247 BSBwW RMSCLEANUP ; terminate previous sequence 
C 8—EDO OOre 48 POPL AP 3; restore ap 
007 49 
0075 50 ; . : 
0075 251 ; Allocate an ifab for internal context 
0075 $2¢ 3 
0075 $2 ; 
FF88' 30 0078 3 40$: BSBW RMSFSETI_ALT 3; allocate ifab/ifi 
07 56 ; 
On5 37 ; Parse the name, assign channel, and fill in nam fields 
07 59 
SA D04 007 60 CLRL R10 ; signal initial call 
53 10 QO7A 61 50$ BSBB RMSPARSE_FILE ; do the heavy work 
1¢ 50) =6E9 )=—(007C 6¢ BLBC RO,EXIT ; branch if error | 
36 =—s« EO... OO7F 6 BBS #FWASV_SYNTAX_CHK,- 3: exit cleaning up if syntax check only 
18 6A - 6081 64 (R10) EXIT 
ie 
5 $ : Fill im Cin the FAB) the primary and secondary device characteristics. 
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| 
0 9 
FF7A' 30 $t 29 BSBwW RMSRET_DEV_CHAR 3; return characteristics 
6 fas 
086 4 ; If wee was -1 on entry, then set a ‘save context’ fla 
086 74 ; as the top bit of the ifi and save the ifi of the ifab/fwa 
086 75 ; for the current context in the nam block so we can pick 
Boge £6 ; it up later when the user calls search. the save context flag | 
086 77 ; enables keeping context around over parse/search calls 
bone re ; and causes directory files to be read when possible. | 
bo88 $84 | 
57 2B A be 6 1 MOVL FABSL_NAM(R8) ,R7 3; get NAM block | 
FF73" 30 Q08A Ht BSBW RMSCHRNAM ; check if nam valid 
OF 50 E8 008D 8 BLBS RO,SVCTX ; branch if o 
6A hs EO 4! rf: BBS Sr eeen MILD PIR S819), ; if wild dir, must have nam block 
03 6A tf EO 0094 86 BBS #FWASV_SLPRESENT, (R10) EXIT ; or if search List | 
0098 aH RMSSUC ; else, set success 
FF62° 31 0098 88 EXIT: BRW RMSCLSCU ; cleanup ifab,etc and exit with status 
4943 4 ; and without saving context 
16 6A 19 EO QO9E 291 SVCTX: BBS #FWASV_NODE,(R10),70$ _; always keep context for networks | 
12 6A 38 £0 OOA2 296 BBS #FWASV"SLPRESENT, (R10), 70$ ; or if search List 
1C €1 QOA6 29 BBC #DEVSV_RND,- ; never keep context for devices with 
Fl 69 QOA8 $3¢ IFBSL_PRIM_DEV(R9) EXIT ; nonrandom primary characteristics 
06 EO OOAA 95 BBS #DEV$T_SPL,- 3 never keep context for devices 
EB 008C C9 OOAC 296 IFBS$L_AS DEV(R9),EXIT __; that are spooled 
04 6A 1C £0 00B0 297 BBS WFWASV_WILD_DIR,(R10),70$; if wild directories, keep context 
E369 39 ET 00B4 298 BBC = MIFBSVTSEARTH, (R9) EXIT ; cleanup if svctx not requested | 
02 a8 3C 0088 $50 70$: MOVZWL FABSW_IFI(R8),- 
30 A7 0cBB 301 NAM$L_WCC(R7) ; save ifi of current context 
00BD $08 SSB #1FBS$U_SEARCH, (R9) ; mark as search-type ifab 
00c1 30 B #NAMSV_IFI,NAMSL_WCC(R7); bit 16 set to indicate ifi, not wec 
02 A8 B4 00C6 304 CLRW FABSW_TFI(R8) ; mbz for subsequent operations on fab 
30 AA 04 O00C9 305 CLRL FWASL_DIRBDB(R10) ; init directory bdb address | 
FF31° 31 OOCC 306 BRW RMSEXSUC ; exit with success -- leave ifab alone | 
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-SBTTL RMSPARSE_FILE, Parse a File Specification 


RMSOPARSE PARS 
v04-000 


RMSPARSE_F ILE 


This routine parses the file specification and sets up 

the channel and did for the file. If this routine is called 

for a search List peeret ie and there are no more search List 
elements to parse RO, FABSL_STV, NAMSL_FNB, NAM$B_ESL and NAM$B_RSL 
(if any) are NOT affected. 


RMSSRENAME calls this routine twice for each file specification 
If the channel is already assigned, then the did must not be set. 


RMSSSEARCH calls this routine when ever it gets a FNF or NMF error. 
It eete Fee in order to look for a new file spec frum 
a searc st. 


OOOCCCOCCOCOCOCOCOCCOOOCOOOCOOCSoOoOOoOOoOO wm 


Ba a Die Be Bee i Be i Be Bs ne Be i Be ne Be De Dn Be Be i Be De De Rs ee Bs i Bs i BB Be BD es De Oe 


Inputs: 
= fab address 

Re = ifab address 

R10 = fwa addr (if search list) or 0 (if not) 

R11 = impure area 

RO = input error status (if FWASV_SL_PASS set) 

FABSL_STV = we 

SL_FNB = 4 

NAMS$B_ESL = - 

NAM$B_RSL = 
Z Outputs: 
4 RO = status (see explination above) 
4 R10 = fwa address 


IFBSV_SEARCH is set if the user requested context to be saved 
Registers ri-r7,ap are destroyed, device characteristics if PPF 


Bete Se Ge Se Se Ge Se Ge Ge Ge Se Ge Ge Se Se Ge Be Se Se Se Ge Se Ge Se Se Se Se Se Ge SoBe Ge Ge Se Se Se Se Ge 
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RMSPARSE_FILE:: 


Make room on stack to save error codes and name block string lengths 


COOSOOSOOOCOOSOOCOOSOOSOSOSOOOSOOSOSOOSOSOSOSOOOOOOSOOOSOOOOOOOOOOOOOOOOOO 


; ERR(SP) = RO error code 

: STV(SP) = FABSL_STV(R8) 

: FNB(SP) = NAMSL—FNB 

: RSL(SP) = NAMSB_RSL 

; ESL(SP) = NAM$BESL 

5E 9 C SUBL2 #STACK_SIZE,SP ; adjust stack 
A 0 TSTL R10 3 any fwa? ‘ 
1 6 BEQL PRS 3 nope so parse as is 
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b 65 
D 66 ; 
89 ; If this is a search List operation see if a channel was assigned, if so 
006 68 ; deassign it 
0D6 +4 ; 
006 0 
51 6A 02 €1 44 re LOOP: BBC #FWASV_SL_PASS, (R10) ,PRS ; is this a search List pass 
ODA 73; 
BDA a ; See if the input error is one that allows for continuation 
DA 376° 
51 98" DO ; DA fi MOVL S“#<RMSSLIST_ERR_CNT/2>,R1 3; get number of errs to check 
FFFE*CF41 0 61 00D 78 10$: CMPW RO,W°RMSSLIST_ERRS-2(R1) 3 Continue from this err? 
96 13 OOE 79 BEQL 20 i yes 
F551 =F—5 OO0ES 80 SOBGTR R1,10$ 3 try another 
O17E 831 Ope e + BRw PREXIT 3; return previous input status 
OA AE 50 00 OOEB HG 208: MOVL RO,ERR(SP) 3; Save error status 
06 AE OC AB DO OOEF 384 MOVL  FABSL_STV(R8),STV(SP) > Save stv secondary code 
OC AB DS OOFS 85 CLRL FABSL_STV(R8) 3; zero to avoid confusion 
57 28 As 0 OOF? 86 MOVL FABSL_NAM(R8) ,R7 3 get nam address 
14 13 OOFB 87 BEQL 0$ : branch if none 
FFOO" 30 OOFD 88 BSBwW RMSCHKNAM ; check nam validity 
O0—E 50 = €9 B19 89 Bi.BC RO, 30$ ; branch if illegal (no error) 
02 AE 34 A7 00 010 90 MOVL NAM$L_FNB(R7) ,FNB(SP) ; save file name status 
01 AE O03 AZ 90 0108 91 MOVB NAM$B_RSL(R7) ,RSL(SP) 3 Save result strin 
6—€ OB A? 90 0100 3 MOVB NAM$B_ESL(R7) ,ESL(SP) ; and expanded string lens 
20 Ad = BS. COQ111 93 308: TSTW IF BSW CHNL (R95 ; yes, was a channel assigned? 
15 13 0114 94 BEQL PRS 3; no, continue 
03 69 25 2 0116 95 BBCC #IFBSV_ACCESSED,(R9) ,40$ ; deaccess any open file or 
FEES" 30 O11A 96 BSBW RMSDEACCESS 3 network Links 
011D 97 40$: SDASSGN_S CHAN=IF B$W_CHNL (R9) ; deassign the channel 
20 A9 = BSS CO0128 98 CLRW IF BSW_CHNL (RI) ; clear it 
0128 99 
0128 400 ; Rie: ’ 
0198 $3) : Zero the fid and did in nam block for rm$setdid to work 
0198 408 
57 28 A8 09 0128 404 PRS: MOVL FABSL_NAM(R8) ,R7 ; get nam address 
24 13 QF 405 BEQL ; branch if none 
FECC' 30 0131 406 BSBW RMSCHKNAM 3 check nam validity 
1€ 50 «EY «60134 = 407 BLBC RO, ; branch if illegal (no error) 
14 A? 9% 4 : rt CLRB NAMST_DVI(R7) ; clear device name 
o1 A 410 ASSUME NAMSW_DID EQ NAMSW_FID+6 
24 A7 7C QI3A tig CLRO NAM$W_FID(R7) ; zero fid and did fields 
2C A?) «64 «(013DC 41 CLRL NAM$W_D1D+2(R7) 
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CIFICATION 4 = 
Parse a File Specificatio 5-SEP-1984 


using 


uw 
Cad 
- 


10$: 


Leavin 


SEP=1984 


these strings lying around 


v04-00 


95:38:18 Lams SRCIRMS PARSE .MAR; 1 


Zero expanded string length and resultant string vength fields to avoid 
from previous parses and consequently 


he wrong filespec in an error message. 


ao 


(simulate 


context of the current PARSE 


d) open by nam bf 


by 


Zero resultant string Length and file name status fields to support networ« 
ock (see expand_name and setnam in rmOxpfn). 


Zero the wildcard context field to avoid the situation whereby the wCC 

is OR'd in with the WCC context of the previous 
PARSE, but save the fact that the user requested context to be saved 
(if the user requested context to be saved), 


setting IFBSV_SEARCH. 


NAM$B_ESL(R7) i; preset expanded string null 
NAM$B_RSL(R7) ; and result atetng too 

NAMSL_FNB(R7) ; zero file name status bits 
#NAMSU_SVCTX,NAMSL_WCC(R7),5$ ; if the user requested context to b 
#IFBSV_ SEARCH, (R9) ; saved, then set IFBSV_SEARCH 
NAMSL_OCC(R7) ; clear NAM wildcard bits 


RMSXPFN 


208 
RESTORE_ERROR 


Parse the input file name and store the pattern 
initialize the FWA which will contain the result directory specification 


in SWB and 


expand the file spec. 
branch if ok 

did we exaust search List? 
no, so other error 

restore old error and exit 


; If the file is a PPF, retrieve its IFAB and move the device characteristics 


: into the IFAB that has been allocated for this parse. 


15$: 


20$: 
30$: 


40$: 


TSTB 
BEQL 
BBS 


RMSERR 
BRW 


EWASB_ESCFLG(RI0) 
#15, FWASW_ESCIFI(R10), 308 


LNE 
PREXIT 


peret Laon 
G)LOSC BID, 1FBS8_BID (RD) 
50$ 


#*M<RI,RI1> 
et 
0$ 


go assign a channel otherwise 
make sure the escape sequence 

is for a PPF IFI and if it 

is not, go return am error 

invalid equivalence string 


| 
i 
if this file is not a PPF then 


save IFAB and impure area addr 
this a executive mode request - NO 
move ifi into R 

ifab table offset/4 


get ifab address 

no IFAB returned? 

is this a valid ifab Aa 
go move device characteristics 


restore IFAB and impure addrs 
return an error 0 : 
invalid equivalence string IFl 


“] 
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RMSOPARSE PARSE FILE SPECIFICATION 16-SEP-1984 01:26:1 AX/VMS Macro V04-00 Page 11 
v04-000 RMSPARSE_FILE, Parse a File Specificatio Tet Ti 95:58:18 RMS ..SRCJRMSOPARSE .MAR; 1 . (6) 
50 9 »p0 198 £38 50$ MOVL 9,R0 PPF IFAB add in RO 
; save address in 
QA00 ar BA 019 474 POPR #°R<RO,R11> ; restore IFAB and impure area addrs 
60 00 OQIA 475 MOVL IFBSL_PRIM_DEV(RO),- ; move primary device characteristic 
69 1A 4/8 IFBSL_PRIM_DEV(R9) : into IFAB from PPF IFAB 
goa C DO O1A5 47 MOVL TEBSL_AS_DEV(RQ} .= 3 move secondary device characterist 
osc C 1A9 478 IFBSL_AS_DEV(R9) ; into IFAB from PPF IFAB 
OO9E 31 QOIAC 47 BRW suc 3 go return device information 
iar Bt 
1AF 64 ¢ ; If channel is already assigned (must have been called by $rename), 
BIA : Z 3; then exit immediately without assigning channel or setdid 
ae 485 
20 AY «=6BS SCOTAF «= « 4 86 «60S: TSTW a caaata 3 any channel assigned? 
£0 12 3189 487 BNEQ 0$ ; exit successfully if so 
6 £0 0184 488 BBS #FWASV_SYNTAX_CHK,=- ; exit cleaning up if 
BC 6A 3186 489 (R10) ,20$ 3 syntax check only 
018 490 
0188 491 
3188 492 ; 
188 4935 ; Assign a channel to the device 
01B8 494 ; 
01B8 495 
FE4S* 30 ass 4% BSBW RMSASSIGN ; assign channel to device 
03 50 8 1BB 497 BLBS RO,65$ 3; continure if ok 
0081 1 O1BE 498 BRW CHKLST 3; branch if error 
01C1 499 
01c1 500; 
01C1 501 ; For nondisk, foreign mounted, and spooled devices, set FWASB_DIRLEN to 0, 
01C1 206 : clear all directory related bits in the NAMSL_FNB and the wild card summary 
01C1 28 3 bit NAMSV_WILDCARD, if no wildcards remain. Leave the expanded-name 
01C1 04 ; string alone. for SDI 
01C1 505 ; devices initialize the FIB'’s DID to the MFD. if the file specification 
gach 286 3; contained node names, skip all of this and go immediately fill in the NAM. 
01C1 208 
OD €0 O1C1 09 65$: BBS #DEVSV_NET,- :; if a network operation, 
69 69 1C¢ 239 IFBSL_PRIM_DEV(R9) ,95$ ; skip the girectory stuff 
1c 6 EO S=O*0IC 11 BBS #DEVST_RND,- 3; go initialize SWB if device 
3D 69 1¢ 218 IFBSL_PRIM_DEV(R9) ,85$ 3 1s a random (disk) device 
2E AA 94 «=(01C9 2! 70$: CLRB FWASB- DIRLEN(R10) ; init the number of dirs to 0 
1CC¢ 14 CSB #FWAST_DIR, (R10) ; clear directory specification 
57 28 gD 1D0 315 MOVL FABSL_RAM(RB),R7 : get nam address 
1 1 104 1 BEQL ; branch if none 
fee * 30 0106 3} BSBW RMSCHKNAM 3; check nam validity 
13 50 €9 01D9 8 BLBC ; branch if illegal (no error) 
CA O1pc (51 BICL2 #NAMSM_GRP_MBR!- : clear group-member dir bit 
1D0 0 AMSM_QILD-DIR!- > «wild dir summary bit 
1DD 1 AMSA pie Cvis!- ; set directory sublevels to 0 
1DD ¢ FF000000,- ; and clear all wild directory 
34 A7  FFF80000 BF 1DD ANSE FNB(R7) : bits | 
D3 O1E4 4 BITL #NAMSA_WILD_NAME !- ; if either the file name 
ee 5 NAMSM_QILD_TYPE!- ; or the file type 
1E § NAMSM_WILD ¥ER.= ; or the file version number 
34 A? 3 165 NAMSL_FNB(R7) $$ isw . 
12 O1€8 8 BNEQ ; keep the wildcard summary bit 


] 
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PARSE F PECIFICATION AX/VMS Macro V04-00 Page 12 | 
vOL000 RMSPARS Freee Fores a File Specificatio "$23 °§ Pa} 984 93 $8: 18 RMS.SRCIRMSOPARSE .MAR; 1 a 
~ 3 otherwi l it 
iEA 6 CSB AAAS mache) ; Ounether it wes set or not | 
1 EO 1Ef 80$ BBS #DEV ; if device is forei a mounted 
38 3 1F ¢ 18S Phin. “DEV(ROD, 95$ ; gy a ° ae Bleen 
HH : “ 3 4 ~ Tres PRIR’ Dey V(R9) ,95$ ; rth in the block otherwise, | 
$F DO OTF 5 MOVL ber ose rh 4 ai6>+F 168 aA Te ; initialize the fi, s DID t 
$205 cA B4 0 $ CLRW atin DID “RVNSFWAST™ 17F BBUF R10) ees 
: 11 $e 8 BRB 508 3 and go clear the FIB's FID 


9 | 


RMSOPARSE PARSE FILE SPECIFICATION 1g-SEP-1984 01:36:10 AX/VMS Macro V04-00 Page 13 Fl 
v04-000 RMSPARSE_FILE, Parse a File Specificatio 5=-SEP-1984 16:25:1 RMS ..SRCIRMSOPARSE .MAR; 1 (8) | 
é a} | 
6 4¢ ; Initialize the swb to process the directory pattern. 
6 544 ° | 
8 E0 3 45 85$: BBS #DEVSV_FOR,- ; if device is foreign then 
43 6 ry IFBSL_PRIM_DEV(R9) , SUC ; don't do directory lookup 
B9 008C C9 06 €E0 OA 4 BBS #DEVSO_SPL7>IFBSL_AS_DEV(R9) ,70$ ; spooled devices not treated 
18 548 ; the same as disk devices 
39 6A OE €1 021 203 BBC #FWASV_DIR, (R10), SUC 3; skip if no dir in spec 
00000000" EF 16 0214 550 JSB RMSINIT SWB : initialize swb context 
4C 50 «£9 1A 22] BLBC RO,PREXTT 3 give up on errors 
Bis 
021D 554 : Note: RMSNEXTDIR clobbers R8 
O51D 85g 
00000000‘ EF 16 0 8 228 JSB RMSNEXTDIR : get DID of first directory | 
58 4 a9 D0 022 558 MOVL IFBSL_LAST_FAB(R9) ,R8 3 restore fab address 
630 £9 027 958 BLBC , : go handle any errors otherwise | 
0204 CA D4 O22A 560 90S: CLRL FWAST_F IBBUF +F IB$L_WCC(R10) ; start at first file in directory | 
OSse 561 : by clear FIB's FID 
1D 11 =O ¢f 266 95$ BRB suc : go fill in the NAM block 
0530 S64 
0230 565 ; There was some sort of directory error 
0930 S67: 
82CA 8F 50 B1 0230 568 1008: CMPW RO, #RMSS_NMF&*XFFFF z any directory found at all? 
0B 12 0235 569 BNEQ CHKLST ; branch if some other error 
0237 570 RMSERR DNF 3 set directory not found 
Oc AS 0910 BF 3C 0575 378 MOVZWL #SSS$_NOSUCHFILE,FABSL_STV(R8) ; set stv secondary code 
024 573 ; 
024 574 ; There was some error other then a file specification error, so check to 
024 575 ; see if there is a search List, if so try the parse again 
Ooeo 87 
23 6A 438 «E11 «(024 578 CHKLST: BBC #FWASV_SLPRESENT,(R10),PREXIT ; no search List, exit | 
0246 579 SSB #FWASV_SL_PASS, (R10) : flag this as search List pass 
FE89 31 O24A 580 BRW LOOP : go try again 
Os¢D $83 
4D 58 : We have successfully parsed a name, assigned a channel and/or found | 
4D 4 ; a directory 
it 
57 28 AB 00 024d 387 SuC: MOVL FABSL_NAM(R8) ,R7 i get nam address 
13. 13 0251 HY BEQL ; branch if none 
FDAA" 30 53 2 9 BSBW RMSCHKNAM : check nam validity 
0D 50 «ED 56 90 BLBC RO, ; branch if illegal (no error) 
09 6A 19 3 59 91 BBS #FWASV NODE ,(R10),10$ ; skip dvi, did if node found 
FDAO' 30 50 36 BSBW «= sa RMSWRITE_DVI : write DVI into NAM block | 
60 34 ASSUME NAMSL_WCC EQ NAMSW_DID+6 | 
O1FE CA 7D 60 96 mMOVa FWAST_FIBBUF+FIBSW_DID(R10),- ; copy did and top word of wec 


a 9 
RMSOPARSE PARSE FILE SPECIFICATION 16-SEP-1984 01:26:1 AX/VMS Macro V04-00 Pa 14 | RMSC 
v04-000 RMSPARSE_FILE, Parse a File Specificatio tae yi 95:38:18 RMS .SRCIRMSOPARSE .MAR; 1 - (8) Tabl 
2A A7 o 538 NAM$W_DID(R7) : for fun 
és 38 10$: ity 
5E OE £9 6 444 PREXIT: ADDL #STACK_SIZE,SP 3; readjust stack 
6C 1 RSB 
Bok 
6D 604 : XPFN exited with RMS$_NOMLIST, no more search List to parse, so restore 
rt $82 ; the original error code and name block string lengths 
BO sesront gunn 
57 628 AB 0 90 $09 “MOVL FABSL_NAM(RB) ,R7 ; get nam address 
14 13 0271 610 BEQL 208 3; branch if none 
foe . 8 73. «611 BSBW RMSCHKNAM ; check nam validity 
OE 50 =€9 A oi¢ BLBC RO,20$ ; branch if illegal (no error) 
6 79~ 614 ASSUME ESL EQ 0 
0279 615 ASSUME RSL EQ ESL+1 
0279 o18 ASSUME FNB EQ RSL+1 
0279 §=61 ASSUME STV EQ FNB+4 
8 a o18 ASSUME ERR EQ STV+4 
OB A? 6E 90 0279 620 108: MOVB ESL(SP) ,NAM$B_ESL(R7) ; restore expanded string 
03 A? AE 90 O27D 621 MOVB RSL(SP) ,NAM$B_RSL(R7) ; and result string 
34 A7 O02 AE 00 O B¢ 6 ¢ MOVL FNB(SP) ,NAMSL_FNB(R7) ; restore file name fleas 
06 CO 028 623 20$: ADDL2 #STv,SP 3 restore stack past NAM fields 
OC AB’ BE DO O28A 624 MOVL (SP)+,FABSL_STV(R8) : 
BE DO O28E 625 MOVL (SP)+,RO 3 restore error status 
05 0291 626 RSB : exit 
0292 627 
0292 628 - END 


| 
| 
set stv secondary code 


| 


RMSOPARSE PARSE FILE SPECIFICATION Ig-SEP-1984 01:36:10 VAX/vits Macro V04-00 Page 1 RMSO 
Symbol table “SEP=1984 16:25:1 RMS. SRCJRMSOPARSE .MAR; 1 ( 04 
$$.PSECT_EP = 00000000 NAMSM_WILD_TYPE = 00010 
SSRMSTEST = $ 1A NAMSM_WILD_VER z 8 08 
SSRMS_PBUGCHK = 19 NAMST_DVI = 14 
SSRMS_TBUGCHK = 0000 9 AMSV-IFI s 38 19 
RMS E = 00000004 NAMSV~SLPARSE = 0000000 
KLST 900 4g R 01 AMSV-SVCTX = 0000001F 
VSV_F = 0000001 NAMS$V_WILDCARD = 4445454 
DEVSV-NET = 0000000D NAMSW-DID = 99 O0¢A 
DEVS$V_RND = o00He IE NAMSW_FID = 00024 
DEV$V_SD1 = 0008 004 PIOSA-TRACE eeeeeere = X (01 
DEVS$V_SPL = 00000006 PREXIT 00000269 R 01 
ERR = 90000008 PRS 600001 BR 01 
ESL = 00 0 PSL$C_EXEC = 00000001 
EXIT 00000038 R 01 RESTORE ERROR 0000026D R 01 
F ABSL_NAM = 0000002 RMSAS ateeenee =X 01 
FABSL_STV = 0000000 RMSCHKNAM eeeeeeee XK 0] 
FABSW_IFI = 0000000 RMSCLEANUP eeeeeeee = X 01 
FIBSL_WCC = 0000001 RMSCLSCU eeeeeeee xX 01 
F IBSW_DID = 0000000A RMSDEACCESS teeeeeee = X 01 
F 1B$W_D1D_NUM = 0000000A RMSEXSUC aeeeeeee xX 01 | 
F IBSW_DID_RVN = 0000000E RMSEX_NOSTR eereeeee Xx 01 
F IDSC_MFD = 00000004 RMSF ABCHK eeeeeeee =X 01 
FNB = 00000002 RMSFSETI_ALT eeeeeeee = X 01 
FWASB_DIRLEN = 0000002E RMSFSET_ALT eereeeee Xx 01 
FWASB_ESCFLG = 0000000C RMSGTIADBR eeeneeee = X 01 
FWASL_DIRBDB = 00000030 RMSINIT SWB teneenee = X 01 
FWAST_F IBBUF = 000001F4 RMSNEXTBIR seeneeee = =X 01 
FWASV-DIR = 0000000E RMSPARSE FILE OOOMOOCF RG 01 | 
FWASV_NODE = 00000019 RMSRET_DEV_CHAR eeeeeeee =X 01 
FWASV_SLPRESENT = 00000038 RMSSLIST_ERRS aeeeeeee = X (1 
FWASV_SL_PAS = 00000002 RMSSLIST_ERR_CNT teneenee YX 01 
FWASV_SYRTAX_CHK = 00000036 RMSWRITE_DVI eeeneeee =X 01 
FWASV-WILD = 0000001C MSXPFN aeeeeeee X 01 
FWASW_ESCIF = 90000005 RMSSPARSE = FFFFFFFE RG 01 | 
1FB$B8_B1D = 0000000 RMS$_DNF = 0001C04A | 
IFB$C_BID = 00000008 RMS$_IFI = 00018564 
IFBSL_AS_DEV = 0000008C RMS$_LNE = 0001858C | 
IFBSL_FWA_PTR = 00000038 RMSS_NMF = 000182CA 
IFBSL~LAST_FAB = 00000024 RMS$ WCC = 000182EA 
IFBSL_PRIM-DEV = 90000000 RSL = 00000001 
IFBSV_ACCESSED = td SS$_NOSUCHF ILE = 00000910 
IFBSV~SEARCH = 900000 9 STACK_SIZE = 0000000E 
1FBSW_CHNL = 00000020 TV = 00000006 
IMPSL_ IF ABTBL = 00000018 U 0000024D R 01 
LOOP 0000006 R 01 SVCTX OO00009E R 01 | 
NAM$B_ESL s 90000008 SYSSDASSGN eeneeeee GX 01 | 
NAM$B_NOP = 000000 : TPTSL_PARSE eexeeree =X 0] 
NAM$B_RSL = 4444444 
NAMSL_FNB = 900000 4 
NAMSL_WCC = 00000030 
NAMSM_DIR_LVLS = 90600008 
NAMSM_GRP_MBR = 00080000 
NAMSM_IF = 00010 06 
NAMSM_ SRCHNMF = 4000 
NAMSM~SVCTX = 80000000 
NAMSM_WILD_DIR s 90100000 
NAMSM~WILD-NAME = 0000002 


RMSOPARSE 
Psect synopsis 


PARSE FILE SPECIFICATION 


B 10 


SE 


71986 16:08:15 Eamses 


S Mac 
RCJRM 


o V04-00 
SOPARSE. MAR; 1 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


PSECT name Allocation PSECT No. Attributes 

. 00000000 ( -} 9 a 0.) NOPIC USR CON ABS LCL at NOE XE 

RMSRMS Bon OSS ( 658.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR- EXE 

SABSS 00000000 ¢«¢ 0.) 23) NOPIC USR CON ABS LCL NOSHR EXE RD 
$m omawrnmonaomo aan eomr aan aowanw 
! ; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:00.09 00:00:00.87 

Command processing 139 BF 0 - BE 00:00:07.61 

Pass 1 442 00:00:17.2 BO? BD 38 +69 

Symbol table sort 0 Bp 00 86-83 00:00:03.31 

Pass 2 122 00:00:03.32 00:00:07.75 

Symbol table output 13 00:00:00.14 00:00:00.44 

Psect synopsis output 1 00:00:00.02 00:00:00.07 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 754 00:00:24.24 00:00:55.39 


The working set_Limit was 1800 pages. 
95512 — beg (187 pages) of virtual memory were used to buffer the intermediate cod 
There were 100 pages of symbol table space allocated to hold 1842 non-local and 35° local symbols. 
628 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
0 pages of virtual memory were \'sed to define 29 macros. 


weer oeoeeeoeeoeee ewe ooeene} 


Macro Library name 


“$255$DUA28: pans OBJIRMS. “Et 1 14 
“$255$0UA28:CSYS.OBJJLIB.MLB; 1 

“$255$DUA2B8: Peye iBISTARLET. MLB; 2 1 
TOTALS (all Libraries) 2 


1982 GETS were required to define 25 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOPARSE/OBJ=OBJ$:RMSOPARSE MSRC$:RMSOPARSE/UPDATE=(ENHS$:RMSOPARSE) +EXECML$/L1B+LIB$:RMS/LIB 
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